home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z6.d64 / func.modem'get < prev    next >
Text File  |  2009-01-03  |  621b  |  26 lines
  1. 0010 // DELETE "0:MODEM'GET.FUNC"
  2. 0020 // LIST   "0:MODEM'GET.FUNC"
  3. 0030 //  BY CAPTAIN COMAL AND FRIENDS
  4. 0040 //
  5. 0050 ╞╒╬├ MODEM'GET$(F'NUM) ├╠╧╙┼─
  6. 0060   OLD'LO:=╨┼┼╦($0324)
  7. 0070   OLD'HI:=╨┼┼╦($0325)
  8. 0080   ─╔═ C$ ╧╞ 1
  9. 0090   ╘╥┴╨ 
  10. 0100     ╘╥┴╨ ┼╙├-
  11. 0110     ╨╧╦┼ $0324,╨┼┼╦($032A)
  12. 0120     ╨╧╦┼ $0325,╨┼┼╦($032B)
  13. 0130     C$:=╟┼╘$(F'NUM,1)
  14. 0140     ╨╧╦┼ $0324,OLD'LO
  15. 0150     ╨╧╦┼ $0325,OLD'HI
  16. 0160     ╘╥┴╨ ┼╙├+
  17. 0170     ╥┼╘╒╥╬ C$
  18. 0180   ╚┴╬─╠┼╥ 
  19. 0190     ╨╧╦┼ $0324,OLD'LO
  20. 0200     ╨╧╦┼ $0325,OLD'HI
  21. 0210     ╘╥┴╨ ┼╙├+
  22. 0220     ╥┼╨╧╥╘ // PASS ERROR OUTSIDE
  23. 0230   ┼╬─╘╥┴╨ // OF THIS ROUTINE.
  24. 0240 ┼╬─╞╒╬├ 
  25. 0250 //
  26.